ssdeep

load("/Users/Kitty/git/fluffyDNA/prep/ssdeep/ssdeep.match.txt.Rdata")
load("/Users/Kitty/git/fluffyDNA/prep/ssdeep/ssdeep.match.mat.txt.Rdata")
load("/Users/Kitty/git/fluffyDNA/prep/ssdeep/ssdeep.match.mat.hclust.Rdata")
table(ssdeeps$SEARCH == ssdeeps$RESULT)
## 
##   FALSE    TRUE 
## 1005484    2534
haplogroups = read.delim(
  "/Users/Kitty/git/fluffyDNA/prep/haplogrep/haplogroups.txt",
  header = TRUE,
  stringsAsFactors = FALSE
)
hist(ssdeeps$SCORE)

plot(hc1, cex = 0.6, hang = -1)



library(plotly)
## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout

p <-
  plot_ly(
    x = ssdeeps$SEARCH,
    y = ssdeeps$RESULT,
    z = ssdeeps$SCORE,
    type = "heatmap"
  )
p